home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / misc / shellscr / src / eglobs.e < prev    next >
Text File  |  1999-11-30  |  453b  |  23 lines
  1. -> discovers offsets of standard E globals
  2. -> Use this to create eglobs.i, or such.
  3.  
  4. PROC main()
  5.   DEF a4, n:PTR TO LONG
  6.   MOVE.L A4,a4
  7.  
  8.   n:=[
  9.   'stdout',    {stdout},
  10.   'conout',    {conout},
  11.   'stdin',    {stdin},
  12.   'arg',    {arg},
  13.   'stdrast',    {stdrast},
  14.   'wbmessage',    {wbmessage},
  15.   'execbase',    {execbase},
  16.   'dosbase',    {dosbase},
  17.   'intuibase',    {intuitionbase},
  18.   'gfxbase',    {gfxbase},
  19.   NIL]
  20.  
  21.   WHILE n[] DO WriteF('\s=\d\n', n[]++, n[]++ - a4)
  22. ENDPROC
  23.